Option Explicit
Sub C_Sample004()
    Dim myRng As Range
    Cells.Clear						'xs檺M
    Set myRng = Range("A1")				'Nxs
    With myRng
        .Value = "IF"				']wr
        'ǳƨ즹
        MsgBox "Nr"
 .Replace "F", "tc"				'Nr
    End With
    Set myRng = Nothing					'
End Sub
